﻿Public Class frmTurno

    Public modeForm As Integer
    Public frmParent As frmMTurno

    Private Sub frmTurno_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Select Case Me.modeForm
            Case 1 'Nuevo
                frmParent.tsbNuevo.Enabled = True
        End Select
    End Sub

    Private Sub frmTurno_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim usuario_id As Integer
        Dim especialidad_id As Integer
        Dim especialidad_nombre As String

        usuario_id = 2
        especialidad_id = 2
        especialidad_nombre = ""

        Select Case especialidad_id
            Case 1 'Fonoaudiologia
                especialidad_nombre = "[Fonoaudiologia]"
            Case 2 'Optometria
                especialidad_nombre = "[Optometria]"
            Case 3 'Psicologia
                especialidad_nombre = "[Psicologia]"
            Case 4 'Medicina General
                especialidad_nombre = "[Medicina General]"
            Case 5 'Medico Certificador
                especialidad_nombre = "[Medico Certificador]"
        End Select

        Select Case Me.modeForm
            Case 1 'Nuevo
                Me.lblEdCodigo.Text = especialidad_id
                Me.lblEdUsuario.Text = usuario_id

                'Me.btnCancelar.Text = "Continuar"
                'Me.btnGuardar.Visible = False

        End Select

        lblMedico.Text = especialidad_nombre
        lblHora.Text = DateTime.Now().ToString("dd/MM/yyyy hh:mm:ss tt")
    End Sub

    Private Sub btnGuardar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardar.Click

        Select Case Me.modeForm
            Case 1 'Nuevo

                If Me.cmbAspirante.SelectedIndex <> -1 Then
                    Dim arrCampos() As String = {"aspirante_id", "usuario_id ", "aspiranteturno_fecha", "aspiranteturno_hora"}
                    Dim arrValor() As String = {Trim(Me.cmbAspirante.SelectedValue.ToString), Trim(Me.lblEdUsuario.Text), DateTime.Now().ToString("yyyy-MM-dd"), DateTime.Now().ToString("hh:mm:ss")}

                    mdlCRUD.insRecord("aspiranteturno", arrCampos, arrValor)
                    MsgBox(Me.cmbAspirante.SelectedValue.ToString)
                Else

                    MsgBox("Usted no tiene aspirantes disponibles", MsgBoxStyle.Information, "CRC")
                    Me.frmParent.refreshList()
                    Me.Close()
                End If
        End Select

        If (mdlCRUD.blnFlag = True) Then
            Me.frmParent.refreshList()
            Me.Close()
        End If

    End Sub

    Private Sub btnCancelar_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCancelar.Click

        Me.Close()
    End Sub

End Class